home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / Solutions.91 / SPEDAddresses / background_5217.txt < prev    next >
Encoding:
Text File  |  1990-12-05  |  2.5 KB  |  113 lines
  1. -- background: 5217 from stack: in
  2. -- bmap block id: 5746
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Index
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=351 top=309 right=336 bottom=446
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: search
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global findWhat
  23.   ask "Enter what you would like to search for:" with findWhat
  24.   if it is empty then exit mouseUp
  25.   put it into findwhat
  26.   simpleFind findWhat
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 9 (field)
  32. -- low flags: 01
  33. -- high flags: 2007
  34. -- rect: left=29 top=72 right=304 bottom=510
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 0
  38. -- font id: 156
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: theList
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   set the lockText of me to false
  46.   click at the clickLoc
  47.   set the locktext of me to true
  48.   select the selectedLine
  49.   wait for 15
  50.   visual effect iris open
  51.   go to card (word 2 of the selectedLine + 1)
  52. end mouseUp
  53.  
  54.  
  55. -- part 13 (button)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=57 top=307 right=338 bottom=266
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Return
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   visual effect wipe right to grey
  70.   visual effect wipe right
  71.   go to card "Solutions Menu" of stack "Solutions"
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 14 (button)
  77. -- low flags: 00
  78. -- high flags: 8000
  79. -- rect: left=56 top=35 right=64 bottom=339
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 156
  84. -- text size: 18
  85. -- style flags: 2048
  86. -- line height: 24
  87. -- part name: Listing of Resource Providers
  88.  
  89.  
  90. -- part 15 (button)
  91. -- low flags: 00
  92. -- high flags: 2000
  93. -- rect: left=269 top=309 right=336 bottom=346
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: search
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   answer "Print complete data for all" && the number of cards - 1 && "records." with "OK" or "Cancel"
  105.   if it is "Cancel" then exit mouseUp
  106.   lock screen
  107.   go next card
  108.   doMenu "Print Report..."
  109.   go back
  110.   unlock screen
  111. end mouseUp
  112.  
  113.